home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / miscstat.arc / CHSQTEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-04-25  |  1.3 KB  |  55 lines
  1. 1 'CHi-SQuare TEST
  2. 2 KEY OFF:SCREEN 0,0,0:WIDTH 80:COLOR 15,0,8:CLS
  3. 10  PRINT "CHI-SQUARE TEST"
  4. 20  PRINT 
  5. 30  DIM V1(25),V2(5),A(5)
  6. 40  PRINT "NUMBER OF ROWS";
  7. 50  INPUT R:IF R<1 OR R>5 THEN 50
  8. 60  PRINT "NUMBER OF COLUMNS";
  9. 70  INPUT C:IF C<1 OR C>5 THEN 70
  10. 80  PRINT "CONTINGENCY TABLE:"
  11. 90  FOR I = 1 TO R
  12. 100  PRINT "ROW";I
  13. 110  FOR J = 1 TO C
  14. 120  PRINT "ELEMENT";J;
  15. 130  INPUT V1((I - 1) * C + J)
  16. 140  NEXT J
  17. 150  NEXT I
  18. 160  PRINT 
  19. 170 L = 0
  20. 180 M = 1
  21. 190  FOR I = 1 TO R
  22. 200  FOR J = 1 TO C
  23. 210 A(I) = A(I) + V1(M)
  24. 220 M = M + 1
  25. 230  NEXT J
  26. 240 L = L + A(I)
  27. 250  NEXT I
  28. 260 N = R * C
  29. 270  FOR I = 1 TO C
  30. 280  FOR J = I TO N STEP C
  31. 290 V2(I) = V2(I) + V1(J)
  32. 300  NEXT J
  33. 310  NEXT I
  34. 320 Z = 0
  35. 330  PRINT ,"OBSER","EXPECT","CHI²"
  36. 340  FOR I = 1 TO C
  37. 350  PRINT "  COLUMN ";I;
  38. 360  FOR J = 1 TO R
  39. 370 P = A(J) * V2(I) / L
  40. 380 X = I + (J - 1) * C
  41. 390 Y = (V1(X) - P) ^ 2 / P
  42. 400 Z = Z + Y
  43. 410  PRINT ,V1(X),INT(P*10000+.5)/10000,INT(Y*10000+.5)/10000
  44. 420  NEXT J
  45. 430  NEXT I
  46. 440  PRINT 
  47. 450  PRINT "CHI-SQUARE IS";Z
  48. 460  PRINT "DEGREES OF FREEDOM IS";(C - 1) * (R - 1)
  49. 470 PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  50. 480 LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  51. 490 K$=INKEY$:IF K$="" THEN 490
  52. 500 IF K$=" " THEN RUN
  53. 510 IF K$<>CHR$(27) THEN 490
  54. 10000 RUN"MENU
  55.